﻿Imports CrystalDecisions.Shared
Imports Capa_Datos
Imports System.Data.SqlClient

Public Class FrmReporte

    Public Sub LlenarReporte()
        'Creo una instancia de mi Reporte

        Dim info As New CrystalReport1
        Dim datos As New DataSetUsuarios
        'info.SetDataSource(datos)
        ' Dim Direccion As String = Application.StartupPath & "\informe_pedido.rpt"
        'Dim Direccion As String = "c:\informe_pedido.rpt"
        ' info.FileName = Direccion
        info.SetParameterValue(0, 1)
        CrystalReportViewer1.ReportSource = info

    End Sub


    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

    End Sub

    Private Sub FrmReporte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'creo una variable string donde almaceno la direccion del archivo Crystal Report 
        ' Dim Direccion As String = Application.StartupPath & "\informe_pedido.rpt"
        ' Dim Direccion As String = "c:\informe_pedido.rpt"
        'creo una nueva instancia de mi informe 
        ''que obviamente está incluido en mi proyecto 
        'Dim oRptInforme As New Capa_Datos.informe_pedido
        ''########################################### 
        ''y aqui la linea importante 
        ''al nuevo objeto oRptInforme le indico donde está el archivo físico 
        ''por alguna razón que aún no comprendo 

        ''########################################### 
        'Direccion = "c:\informe_pedido.rpt"
        'oRptInforme.FileName = Direccion
        ''Luego pasamos los parametros necesarios 
        '' oRptInforme.SetParameterValue("@nro_pedido", 1)
        'Dim nropedi As Int32
        'nropedi = 1



        ''y por último se lo asigno al CrystalReportView, quien es el encargado final 
        ''de mostrarlo en toda su magnificencia. 
        'CrystalReportViewer1.ReportSource = oRptInforme

        'oRptInforme.SetParameterValue(0, 1)
        'CrystalReportViewer1.Show()


        Dim Parametros As ParameterFields = New ParameterFields()
        Dim PrimerParametro As ParameterField = New ParameterField()
        Dim SegundoParametro As ParameterField = New ParameterField()

        Dim myDiscreteValue1 As ParameterDiscreteValue = New ParameterDiscreteValue()
        Dim myDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()


        'Nombre del Parametro definido dentro de “Campos de Parametros” del Crystal..

        'PrimerParametro.ParameterFieldName = "NroPedido"

        ' SegundoParametro.ParameterFieldName = "SegundoParametro"

        'Paso los Datos

        'myDiscreteValue1.Value = 1

        ' myDiscreteValue.Value = Me.tbSegundoParametro.Text


        'PrimerParametro.CurrentValues.Add(myDiscreteValue1)

        'SegundoParametro.CurrentValues.Add(myDiscreteValue)


        'Cargo los parametros y los envio al Crystal

        'Parametros.Add(PrimerParametro)

        'Parametros.Add(SegundoParametro)


        'CrystalReportViewer1.ParameterFieldInfo = Parametros


        LlenarReporte()






    End Sub




End Class